Data pre-processing is included, where special chars and minimal stop-words are removed.
library(data.table)
## load review data
source("~/Dropbox/Eugenie/scripts/libs.R")
## Plot by day
ggplot(NULL, aes(x = date, y = day_rating))+
geom_point(data=reviews.product, aes(color = "daily ave rating"), alpha = 0.7,size=0.2)+
geom_smooth(data=reviews.product,method = 'auto',aes(color='daily ave rating line'),size=1,alpha = 0.6)+
theme_minimal()+
facet_grid(rows=vars(brand.bi))+
geom_vline(xintercept = as.Date('2016-10-03'), color = "black", size=0.3)+
labs(x='day',y='mean rating',fill='category',title='Product Category Mean Rating by Day')
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## Plot by day
ggplot(NULL, aes(x = date, y = day_length))+
geom_point(data=reviews.product, aes(color = "daily ave length"), alpha = 0.7,size=0.2)+
geom_smooth(data=reviews.product,method = 'auto',aes(color='daily ave length line'),size=1,alpha = 0.6)+
theme_minimal()+
facet_grid(rows=vars(brand.bi))+
geom_vline(xintercept = as.Date('2016-10-03'), color = "black", size=0.3)+
labs(x='day',y='mean length',fill='category',title='Product Category Mean Length by Day')
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'